home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 52
/
Amiga Format AFCD52 (Issue 136, May 2000).iso
/
-in_the_mag-
/
multitasking
/
feature
/
scout
/
arexx
/
breaktask.scout
< prev
next >
Wrap
Text File
|
2000-03-02
|
1KB
|
40 lines
/**************************************************************************
* This ARexx script sends a CTRL-C to the task <taskname>. *
* USAGE: breaktask <taskname> *
**************************************************************************/
if showlist('p','SCOUT.1') < 1 then do
say "Scout is not running!"
exit
end
address 'SCOUT.1'
parse arg taskname
options results
options failat 20
if taskname = '' then do
say "usage: breaktask <taskname>"
exit
end
FindTask taskname
taskaddress = result
if taskaddress = 'RESULT' then
say "Can't find task '" || taskname || "'!"
else do
BreakTask taskname
say "CTRL-C sent..."
address command 'wait 1 sec'
FindTask taskname
taskaddress = result
if taskaddress = 'RESULT' then
do
say "... and task '" || taskname || "' is no longer in system!"
exit
end
else
say "... but task '" || taskname || "' (" || taskaddress || ") is still in system!"
end
exit